unit UnDataModule;

interface

uses
  SysUtils, Classes, DB, DBClient, SOAPConn;

type
  TDmDatasets = class(TDataModule)
    CdsLoginOnderzoeker: TClientDataSet;
    ConnLoginOnderzoeker: TSoapConnection;
    CdsLoginOnderzoekerID: TAutoIncField;
    CdsOnderzoeker: TClientDataSet;
    AutoIncField1: TAutoIncField;
    ConnOnderzoeker: TSoapConnection;
    CdsOnderzoekerOnderzoeken: TClientDataSet;
    ConnOnderzoekerOnderzoeken: TSoapConnection;
    CdsModuleBeheer: TClientDataSet;
    ConnModuleBeheer: TSoapConnection;
    CdsModuleBeheerID: TAutoIncField;
    CdsModuleBeheerNUMMER: TIntegerField;
    CdsModuleBeheerCONFIGURATIE_NUMMER: TIntegerField;
    CdsModuleBeheerCONFIGURATIE_STAMP: TDateTimeField;
    CdsModuleBeheerLOKATIE_ID: TIntegerField;
    CdsModuleBeheerONDERZOEKS_ID: TIntegerField;
    CdsModuleBeheerTblModuleConfiguratue: TDataSetField;
    CdsConfiguratie: TClientDataSet;
    CdsOnderzoekerOnderzoekenID: TAutoIncField;
    CdsOnderzoekerOnderzoekenNAAM: TStringField;
    CdsOnderzoekerOnderzoekenSTART_DATUM: TDateTimeField;
    CdsOnderzoekerOnderzoekenID_1: TAutoIncField;
    CdsOnderzoekerOnderzoekenGebruikers_ID: TIntegerField;
    CdsOnderzoekerOnderzoekenOnderzoek_ID: TIntegerField;
    CdssensorTypen: TClientDataSet;
    ConnSensorTypen: TSoapConnection;
    CdssensorTypenID: TAutoIncField;
    CdssensorTypenNAAM: TStringField;
    CdssensorTypenFORMULE: TBlobField;
    procedure CdsModuleBeheerBeforeRefresh(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DmDatasets: TDmDatasets;

implementation

{$R *.dfm}

procedure TDmDatasets.CdsModuleBeheerBeforeRefresh(DataSet: TDataSet);
begin
  if  TClientDataset(DataSet).ChangeCount > 0 then
  TClientDataset(DataSet).ApplyUpdates(0);
end;

end.
